home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / nut2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  5.6 KB  |  161 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSample 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Nuts"
  5.    ClientHeight    =   3885
  6.    ClientLeft      =   6420
  7.    ClientTop       =   2910
  8.    ClientWidth     =   5460
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   259
  14.    ScaleMode       =   3  'Pixel
  15.    ScaleWidth      =   364
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin VB.TextBox txtLenThread 
  18.       Height          =   288
  19.       Left            =   1680
  20.       TabIndex        =   6
  21.       Top             =   2847
  22.       Width           =   855
  23.    End
  24.    Begin VB.ListBox List2 
  25.       Height          =   255
  26.       ItemData        =   "Nut2.frx":0000
  27.       Left            =   3960
  28.       List            =   "Nut2.frx":000A
  29.       TabIndex        =   5
  30.       Top             =   120
  31.       Width           =   1335
  32.    End
  33.    Begin VB.ListBox List1 
  34.       Height          =   1620
  35.       ItemData        =   "Nut2.frx":001A
  36.       Left            =   240
  37.       List            =   "Nut2.frx":002D
  38.       TabIndex        =   4
  39.       Top             =   480
  40.       Width           =   2295
  41.    End
  42.    Begin VB.TextBox txtdd 
  43.       Height          =   285
  44.       Left            =   1680
  45.       TabIndex        =   3
  46.       Top             =   2400
  47.       Width           =   855
  48.    End
  49.    Begin VB.CommandButton cmdOK 
  50.       Caption         =   "OK"
  51.       Height          =   375
  52.       Left            =   4080
  53.       TabIndex        =   0
  54.       Top             =   3360
  55.       Width           =   1212
  56.    End
  57.    Begin VB.CommandButton cmdCancel 
  58.       Caption         =   "Cancel"
  59.       Height          =   375
  60.       Left            =   2640
  61.       TabIndex        =   1
  62.       Top             =   3360
  63.       Width           =   1215
  64.    End
  65.    Begin VB.Image PicPreview 
  66.       BorderStyle     =   1  'Fixed Single
  67.       Height          =   2640
  68.       Left            =   2700
  69.       Stretch         =   -1  'True
  70.       Top             =   465
  71.       Width           =   2595
  72.    End
  73.    Begin VB.Label Label2 
  74.       Caption         =   "Nut Type :"
  75.       Height          =   255
  76.       Left            =   240
  77.       TabIndex        =   8
  78.       Top             =   120
  79.       Width           =   1335
  80.    End
  81.    Begin VB.Label Label5 
  82.       Alignment       =   1  'Right Justify
  83.       Caption         =   "Thread Lenght (Lt) :"
  84.       Height          =   255
  85.       Left            =   120
  86.       TabIndex        =   7
  87.       Top             =   2880
  88.       Width           =   1455
  89.       WordWrap        =   -1  'True
  90.    End
  91.    Begin VB.Label Label1 
  92.       Alignment       =   1  'Right Justify
  93.       Caption         =   "Diameter (d) :"
  94.       Height          =   255
  95.       Left            =   360
  96.       TabIndex        =   2
  97.       Top             =   2400
  98.       Width           =   1215
  99.    End
  100. Attribute VB_Name = "frmSample"
  101. Attribute VB_GlobalNameSpace = False
  102. Attribute VB_Creatable = False
  103. Attribute VB_PredeclaredId = True
  104. Attribute VB_Exposed = False
  105. Option Explicit
  106. '/******************************************************************/
  107. '/*                                                                */
  108. '/*                      TurboCAD for Windows                      */
  109. '/*                   Copyright (c) 1993 - 2001                    */
  110. '/*             International Microcomputer Software, Inc.         */
  111. '/*                            (IMSI)                              */
  112. '/*                      All rights reserved.                      */
  113. '/*                                                                */
  114. '/******************************************************************/
  115. ' Storage for read-only property indicating whether
  116. ' or not the dialog box was cancelled. Default is
  117. ' False. Note that the declaration is Private, so
  118. ' that the value cannot be set from the OLE client
  119. ' application. The client reads the value using the
  120. ' DialogCancelled property.
  121. Private blnDialogCanceled As Boolean
  122. ' Read-only property indicating cancellation of the
  123. ' dialog.
  124. Property Get DialogCanceled() As Boolean
  125.     DialogCanceled = blnDialogCanceled
  126. End Property
  127. Private Sub cmdCancel_Click()
  128.     ' Set the value of the read-only property that
  129.     ' tells the caller the dialog was cancelled.
  130.     blnDialogCanceled = True
  131.     Me.Hide
  132. End Sub
  133. Private Sub cmdOK_Click()
  134.     Me.Hide
  135. End Sub
  136. Private Sub Form_Load()
  137. Dim i%, iDef%
  138.     For i = 0 To List1.ListCount - 1
  139.         If List1.List(i) = TypeN Then iDef = i
  140.     Next i
  141.     List1.ListIndex = iDef
  142.     For i = 0 To List2.ListCount - 1
  143.         If List2.List(i) = ViewN Then iDef = i
  144.     Next i
  145.     List2.ListIndex = iDef
  146.     If List1.Text = "HexNut" Then PicPreview.Picture = LoadResPicture(101, 0)
  147.     If List1.Text = "HexFlangeNut" Then PicPreview.Picture = LoadResPicture(102, 0)
  148.     If List1.Text = "HexSlottedNut" Then PicPreview.Picture = LoadResPicture(103, 0)
  149.     If List1.Text = "LowCrownNut" Then PicPreview.Picture = LoadResPicture(104, 0)
  150.     If List1.Text = "SquareNut" Then PicPreview.Picture = LoadResPicture(105, 0)
  151. End Sub
  152. Private Sub Label3_Click()
  153. End Sub
  154. Private Sub List1_Click()
  155.     If List1.Text = "HexNut" Then PicPreview.Picture = LoadResPicture(101, 0)
  156.     If List1.Text = "HexFlangeNut" Then PicPreview.Picture = LoadResPicture(102, 0)
  157.     If List1.Text = "HexSlottedNut" Then PicPreview.Picture = LoadResPicture(103, 0)
  158.     If List1.Text = "LowCrownNut" Then PicPreview.Picture = LoadResPicture(104, 0)
  159.     If List1.Text = "SquareNut" Then PicPreview.Picture = LoadResPicture(105, 0)
  160. End Sub
  161.